home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr15
/
rmastr36.zip
/
DEMO2.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-06-17
|
2KB
|
39 lines
'* ************************************************************ *
'* Demo2.bas For QuickBASIC *
'* *
'* Rcar was created by saving the image as BASIC DATA *
'* from Raster Master. *
'* ************************************************************ *
OPTION BASE 1
DEFINT A-Z
DIM Rcar(130)
FOR I = 1 TO 130
READ Rcar(I)
NEXT I
SCREEN 7 'SCREEN 13 for 256 color images
LINE (0, 0)-(319, 199), 1, BF
PUT (0, 0), Rcar, PSET
' QuickBASIC, Array Size= 130 Width= 28 Height= 16 Colors= 16
' Rcar
DATA &H001C,&H0010,&HC3FF,&HFFFF,&H0000,&H0000,&H3C00,&H0000
DATA &H0000,&H0000,&H80FF,&HFFFF,&H0000,&H0000,&H7F00,&H0000
DATA &H3F00,&H0000,&H019F,&HFFFF,&H0100,&H0080,&HC160,&H0080
DATA &H4000,&H0000,&H008E,&HFFFF,&H0000,&H00C0,&H8071,&H00C0
DATA &H8000,&H0000,&H00E4,&HFF7F,&H0000,&H0060,&H801B,&H0060
DATA &H0001,&H0000,&H00E0,&HFF3F,&H0000,&H0030,&HC01F,&H0030
DATA &H8001,&H0000,&H00C0,&HFF00,&H0000,&H0000,&HFF3F,&H00FF
DATA &H001C,&H0000,&H1080,&H3F00,&H1000,&H0000,&HFF7F,&HC0FF
DATA &H8F3F,&H00EF,&H0000,&H5F00,&H0000,&H4000,&HFFFF,&HE0FF
DATA &HDF71,&H80F0,&H0080,&H6F00,&H0080,&H6000,&HFFF1,&HF0F8
DATA &HDF60,&H00F0,&H0080,&H2F00,&H0080,&H2000,&HFFE0,&H70F0
DATA &H5F40,&H00E0,&H0004,&H0F02,&H0004,&H0002,&H7FC4,&H30E2
DATA &H1F04,&H00C2,&H000A,&H0F05,&H000A,&H0005,&H7FCA,&H30E5
DATA &H000E,&H0007,&H7FC4,&H3FE2,&H0004,&H0002,&H0004,&H0002
DATA &H0004,&H0002,&HFFE0,&H7FF0,&H0000,&H0000,&H0000,&H0000
DATA &H0000,&H0000,&HFFF1,&HFFF8,&H0000,&H0000,&H0000,&H0000
DATA &H0000,&H0000